home *** CD-ROM | disk | FTP | other *** search
/ Zodiac 50 Game Pack 2 / Zodiac 50 Game Pack 2.iso / abuse / abuse.lsp < prev    next >
Lisp/Scheme  |  1995-08-31  |  1KB  |  40 lines
  1. ;; Copyright 1995 Crack dot Com,  All Rights reserved
  2. ;; See licencing information for more details on usage rights
  3.  
  4. (perm-space)
  5. (setq load_warn nil)
  6. (if (not (load "lisp/startup.lsp"))
  7.     (progn
  8.       (print "Please make sure you unzipped the game with the -d option")
  9.       (print "so that all directories get created properly.")      
  10.       (quit)))
  11. (setq load_warn T)
  12.       
  13. (load "lisp/input.lsp")
  14. (load "lisp/userfuns.lsp")
  15. (load "lisp/sfx.lsp")
  16. (load "lisp/gates.lsp")
  17. (load "lisp/duong.lsp")
  18. (load "lisp/ant.lsp")
  19. (load "lisp/people.lsp")
  20. (load "lisp/weapons.lsp")
  21. (load "lisp/explo.lsp")
  22. (load "lisp/platform.lsp")
  23. (load "lisp/common.lsp")
  24. (load "lisp/guns.lsp")
  25. (load "lisp/jugger.lsp")
  26. (load "lisp/flyer.lsp")
  27. (load "lisp/teleport.lsp")
  28. (load "lisp/general.lsp")
  29. (load "lisp/powerup.lsp")
  30. (load "lisp/doors.lsp")
  31. (load "lisp/light.lsp")
  32. (load "lisp/ladder.lsp")
  33. (load "lisp/switch.lsp")
  34.  
  35.  
  36. (setq bad_guy_list (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER GREEN_FLYER BOSS_ANT))
  37. (gc)
  38. (tmp-space)
  39. (create_players DARNEL)
  40.